home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1997 October / pcx14_9710.iso / swag / delphi.swg / 0160_Padding a numeric with zeros.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-08-30  |  98 b   |  7 lines
  1.  
  2. var s: string;
  3. begin
  4.   FmtStr(s, '%.5d', [StrToInt(edit1.text)]);
  5.   edit1.text := s;
  6. end;
  7.